Public Class Productos
    Dim ADProductos As New ADCono.Productos

 
    Public Function GenerarMaterialYClasificacion(ByVal NomMat As String, ByVal NomCla As String)
        Dim DS As New DataSet
        DS = ADProductos.GenerarMaterialYClasificacion(NomMat, NomCla)
        Return DS
    End Function

    Public Function GenerarProducto(ByVal CodCar As Integer, ByVal CodCla As Integer, ByVal CodIns As Integer, _
    Optional ByVal Obs As String = "")
        Dim DS As New DataSet
        DS = ADProductos.GenerarProducto(CodCar, CodCla, CodIns, Obs)
        Return DS
    End Function

    Public Function ObtenerProductos(Optional ByVal NomCla As String = "", Optional ByVal NomCar As String = "", _
    Optional ByVal NomIns As String = "")
        Dim DS As New DataSet
        DS = ADProductos.ObtenerProductos(NomCla, NomCar, NomIns)
        Return DS
    End Function

    Public Function ObtenerMateriales(ByVal NomRub As String)
        Dim DS As New DataSet
        DS = ADProductos.ObtenerMateriales(NomRub)
        Return DS
    End Function

    Public Function ObtenerCalsificaciones(ByVal CodNDM As Long)
        Dim DS As New DataSet
        DS = ADProductos.ObtenerClasificaciones(CodNDM)
        Return DS

    End Function
 
End Class
